From c9d5cb324e3eae1658506629b80f4f11f6223c1d Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 27 Dec 2013 16:43:54 +0100 Subject: [PATCH] * net/shr.el (shr-insert): Don't infloop if the width is zero. --- lisp/ChangeLog | 4 ++++ lisp/net/shr.el | 1 + 2 files changed, 5 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cc9b3182443..22e07336e34 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2013-12-27 Lars Ingebrigtsen + + * net/shr.el (shr-insert): Don't infloop if the width is zero. + 2013-12-27 Stefan Monnier * icomplete.el (icomplete-show-matches-on-no-input): Default to nil diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 1a555100a21..b29ae6ce848 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -456,6 +456,7 @@ size, and full-buffer size." (setq shr-state nil) (let (found) (while (and (> (current-column) shr-width) + (> shr-width 0) (progn (setq found (shr-find-fill-point)) (not (eolp)))) -- 2.30.2